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(6) 2 BC_ACCESS = Handle DLE a cess to broadcast circuit 

(7) DLESSETMODE = Process 10 SETMODE request 
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(13) 1 INIT_URSOL_CHAN = Initialize channel for unsolicited msgs 

(14) 1014 ISSUE_NI_READ = Issue read request to NI drive 
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(19) 1441 DLESPRO_EXIT™= Handle MOM process termination 
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ALL RIGHTS RESERVED. 
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FACILITY: DECnet-VAX 
: ABSTRACT: 


This module contains pee? of the DLE procesee level code in 
NETACP. It works with the DLE driver (NDDRIVER) to implement 
DLE to allow programs direct access to DECnet circuits. This 
is primarily used to implement MOP support. 


; ENVIRONMENT: 
MODE = KERNEL 
; AUTHOR: 


; MODIFIED BY: 


v003 TMHOO03 Tim Halvorsen 24-Aug-1984 
Prevent duplicate MOM processes from being started due 
to unsolicited messages received AFTER MOM has issued 
its aCeeSS but before it has established a connection 

with the node (via SETMODE). This is done by simply 

leaving the unsolicited message v yniss started MOM in the 
unsolicited queue for the | of the MOM process, causing 
any new unsolicited messoges which ‘ pqueck through’’ to be 
dropped rather than starting a new MOM process. 


v002 TMHOO02 Tim Halvorsen 28-Apr-1983 
| 
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: Tim Halvorsen, January 1983 
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Change Loopback assistant multicast address to (Gp 
the one Listed in the Ethernet V2 spec. 


v001 TMHOOO1 Tim Halvorsen 29-Mar-1983 
Compute a unique MOM process name, so that multiple 
service operations can occur on the same circuit. 
Fix deallocation of BC blocks to wait for all outstanding 
1/0 to rundown before oe the block. 
Add protective code to prevent multiple MOMs from starting 
up if the remote station sends reeseots too often - if we 
ceceree — message while a MOM process is still starting, 
s ignored. 
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: Network definitions 


SOWBDEF 
SEVCDEF 


SLPDDEF 
SNETSYMDEF 
SNF BDEF 
SNMADEF 
SWQEDEF 


1986 02:49:47 


AX/VMS eas 


r 
NETACP.SRCJNETDLE.MAR; 1 


ACP buffer descriptor 
Channel control block 
Complex buffer 

Device data block 
Driver dispatch table 
Structure types 

1/0 request packet 
1/0 function codes 
Job information block 
Process control block 
Device unit control block 


DLE window control block 

Event logging parameter codes 
Logical path et ep (circuit) 
Get NETSC_IPL symbo 

Network parameter codes 

NICE parameter codes 

Work queue entries 


> Define symbols for timer qualifiers 


TID_C_READSUP = 1 
WOESC_QUAL_DLE = 4 


3; NI receive ‘‘wait'’ timer 
; && temp && 


Define format of broadcast circuit ‘‘default protocol user’’ context block. 


This block holds all 


SDEFINI BC GLOBAL 
SDEF BC_L_FLINK -BLKL 


SDEF  BC~WTSIZE *BLKW 
SDEF BC "B-TYPE “BLKB 
SDEF  BC"B FLAGS “BLKB 
_VIELD BC70;<- 

<DELETE. .M>,~ 


SDEF BC_B_REFCNT -BLKB 
SDEF BC_W_LPD . 
SDEF BC_W_LD_CHAN -BLKW 


_~— 


a rey 


context related to enab = this process to receive 
all unsolicited messages (‘default user’) for the 
a broadcast circuit, specifically 


MOP protocol types on 


‘Load/dump"’ and ‘‘loopback’* protocol types. 


(GLOBAL is only for debugging) 


Forward/backward queue Links 
Size of structure 

Type of structure 

Flags 


Block is marked for deallocation 


# of I10WQEs still outstanding 
(spare for alignment) : 

LPD ID of broadcast circuit 
Channel for ‘‘load/dump’* protocol 


ee 
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WO4-b60 Declarations $ ° matt 1 8}: 99; $5 NETACP.SRCJNETDLE .MAR; 1 “ (2) 
1 SDEF BC_W_LP_CHAN -BLKW 1 3 Channel for ‘‘loopback’’ protocol 
$DEF BC_Q"PN b. RCV «BLKL ; Listhead of pending receive [0WQEs 
SDEF BC"Q-CUR-RCV «BLKL ; Listhead of current receive I0WQEs 
SDEF BC_Q- ~UNSOL MSGS .BLKL 3 Listhead for received unsolicited msgs 
SDEF BC"C_LENGTA 3; Length of structure 
SDEFEND BC 
Define format of an unsolicited message context block 
0000000E NIHDRSIZ = 14 ; Size of NI datalink header 
SDEFINI IOWQE GLOBAL ; (GLOBAL is only for debugging) 
00000024 - = WQESC_LENGTH ; Start just after standard WQE 


SDEF IOWQE Q_10SB »BLKL 
IOWQE_W_MSGLER = I0WQE_Q “Tosbs2 
SDEF TOWQE _W_CHAN 7BLK 


2 
1 
“BLKW 1 
SDEF IOWQE_L_PID -BLKL 1 
IOWQE"L-BC -BLKL 1 
SDEF ieee <G_NIHDR .BLKB N 
SDEF 1OWQE~G_MSG -BLKB 1 
SDEF 1OWQE"C"LENGTH 


SDEFEND IOWQE 


; 1/0 status ++ 
; Message nate 
; Channel to datalink 


00000026 3 
: (spare for alignment) 


00000030 
; IPID of MOM process for this msg 
; Address of porosenaneing BC block 
IHDRSIZ ; NI datalink header 
500 ; Actual message (al Low for largest) 
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6 
00 
00 H 
Bp : Read/write storage 
00 F 
0000 bo -PSECT NET_IMPURE,WRT ,NOEXE,LONG 
00 DLE_ACC: 
00000000' 000 ADDRESS DLE_ACC ; Queue of DLE IO$_ACCESS IRPs 
00000000° 4 -ADDRESS DLE_ACC 3 waiting for circuit to go into MOP 
$° BC_QUEUE: 
00000008° 000 ADDRESS BC_QUEUE ; Queue of BC blocks for all broadcast 
00000008° 5 -ADDRESS BC_QUEUE : circuits in the ‘‘run’’ state 
00000018 ' I0SB: .BLKL 2 ; General purpose 1/0 status block 
0000 09 -PSECT NET_PURE ,NOWRT,NOEXE,LONG 
: ; : Define storage needed to startup MOM 
0000000A MAX_MOM_PROC = 10 ; Maximum number of simultaneous | 
; MOM processes for a single circuit 
MOM_OBJ_NAM: 
4D 4F 4D 24 0" -ASCIC ‘“SMOM'" ; Name of MOM object 
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yoseb00 Declarations 4 gE bbe 83:95:95 NETACP. SRCINETDLE MAR; 1 a 3) 
185 MOM_PRCNAM: 
4C 55 21 SF 44 41 21 SF 4D GF 40 of a3 188 = eASCIC ‘MOM_!AD_!UL"’ ; MOM process name | 
1g 
1 ! : : UNA "'setmode”’ parameters for load/dump protocol 
: } 
11. («191 
11 19¢ LD_PARAMS : 
ono es a} 13 WO NMASC PCLI_PTY ; Protocol type = 60-01 | 
1 17 195 “WORD NMASC_PCLI_ACC : Protocol de = SHARED 
00000801 9019 196 "LONG NMASC"ACC_ SHR pany ccchacgeeerncnange sl sgn 
00h eA Sg 134 ere WAASC_PCLT BUS ; Buffer size = 1498 (2 bytes for PAD) | 
en 451 : +44 -WORD NMASC_PCLI_BFN ; Number of buffers = 2 
OBOF 0029 01 WORD NMASC_PCLI_MCA ; Reception of multicast messages: 
0008 0028 ¢ eWORD 8 3 (8 byte string follows 
0001 0020 Q ~WORD NMASC_LINMC_SET ; Enable reception of multicast 
01002048 Me LONG pro todooas ; ‘‘dump/load assistance’ 
OB1A 00 0 “WORD NMASC_PCLI_PAD ; Padding Length d = ON 
00000009 i 09 “LONG  NMASC"STATE._ON Anchuinaens 
0B1 038 08 WORD NMASC_PCLI_PRM ; Promiscuous mode = OFF 
00000001 003D 09 . NMASC_STATE_OFF 
oy 041 10 NMASC_PCLI ALT ; Multicast address state = OFF 
00000001 0043 11 LONG NMASC_STATE_OFF 
0B1B 0047 \¢ -WORD NMASC-PCLI_BCH ; Data chaining = OFF 
00000001 0049 1 -LONG NMASC"STATE_OFF ; (DLE driver can't handle multiple CXBs) 
0B1C 004D 14 -WORD NMASC_PCLI_CRC ; CRC generation = ON 
00000000 poet 13 -LONG NMASC_STATE_ON 
05 i3 LD_SETMODE : 
00000042 005 18 -LONG  .=-LD_PARAMS 3; Descriptor of above buffer 
00000011" 3 19 -ADDRESS LD_PARAMS 
O38 551; 
328 § > UNA "'setmode’’ parameters for Loopback protocol 
58 4° 
$a 5 LP_PARAMS: 
sta 58 § -WORD NMASC_PCLI_PTY ; Protocol type = 90-00 
0000009 5D -LONG “X 
if 61 8 -WORD NMASC_PCLI_ACC ; Protocol access mode = SHARED 
0000 o3 -LONG NMASC_ACC_SHR 
F1 006 0 “WORD NMASC"PCLT_BUS ; Buffer size = 1500 
0000 pc 69 1 . LONG 00 
1 6D § -WORD NMASC_PCLI_BFN ; Number of buffers = 2 
00000002 of - LONG 
F 4 -WORD NMASC_PCLI_MCA : Reception of multicast messages: 
8 7 5 «WORD : (8 byte string follows 
1 7 § eWORD NMASC ,imee set ; Enable reception of multicast 
000000CF 44 LONG proved CF ; “loopback assistance” 
A OO07F 5 “WORD NMASC_PCLI_PAD ; Padding Length word = OFF 
00000001 81 40 LONG NMASC"STATE_OFF 
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By pe , . g-S6F Po} 1382 83 :¢ ¢ ENETACP. SREINETDLE MARS 1 nest (3) 
00008807 oR? 343 “TONG | -NMASE STATE OFF ees eee ee 

5 23 “WORD NMASE PCL I ALT ; Multicast address state = OFF 
264d 18 } is : ORD NAASETBCLT Bont Data chaini OFF 

: 3; Data chaining = 
00000001 $3 é$ ‘ NMASC_STATE_OFF 3; (DLE driver Zen’ *t handle multiple CXBs) 
is 9 4 ; NMASC_PCLI_CRC ; CRC generation = ON 
0000000 4 vt -LONG NMASCSTATE_ON 
9D 50 LP_SETMODE: 
00000042 9D 51 LONG ARAMS ; Descriptor of above buffer 
0000005B' GOA} 25 ;ADDRESS LP PARAMS 
OA 54 
00000000 55 -PSECT NET_CODE,NOWRT,EXE 
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“<- 
<10$_ACCESS 30$> 
<10$"ACPCONTROL, 40$>.- « 
<IOS“DEACCESS, | 50$>.- 


i 
0 
09 R3 = IRP address 
; Outputs: 
8 ; None = the IRP is always returned to the driver. 
8 0 LESDISPATCH:: 
oO EF 0 EXTZV #IRPSV_FCODE,- 3; Get function code 
06 000 #IRPS$S-FCODE,- 
57 20 A3 0 0 IRP$W_FUNC(R3) ,R7 
000 
000 
000 
0 
3 
3 
3 
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0 <10$_SETMODE, 60$>> 
0000'8F 3C 0 108: MOVZWL #SS$-ILLIOFUN 3; Say “illegal 1/0 function" 
38 A3 0 TRPSL_ Tost 4 (R3) 
28 Oi 8 ; BRE 90$ 3 Exit 
O08 > ACCESS function - dispatch to connect processor 
0034 30 $08 30$: 6SBw DLESACCESS ; Process IO$_ACCESS function 
one BRB 90$ : Exit 
Bae : ACP Control 
03 €0 094 40$: Bs otnrey COMPLX,=- 3: If normal 10$_ ACPCONTROL, then 
EE 2A A3 04 W_STS(R3),10$ ; inform user we don't support | chee 
18 A301 8A 004 BICB #1, 1APSE “OIN D(R3) 3; Clear interlock bit inc 
004 : IOS_ACCESS or I0$_ DEACCESS. Pg pending 
0258 30 004 BSBW DLESCANCEL : Do Cancel=-related work 
1 11 004 BRB 90$ 3; Continue 
a3 6 :  DEACCESS function 
56 18A3 O01 C 05 08 50$: BicL3 #1 IRPSL_WIND(R3) ,R6 ; Get DWB without interlock bit 
1 05 4 BGEQ : If GEQ then no DW 
024C 3 05 05 BSBW BLS SOEACCESS 3; Process IOS_DEACCESS function 
09 =i : 6 BRB 90$ 3; Continue 
3 08 ; SETMODE function 
56 18 A3 D 5 10 60$: OVvL JRPSL_WIND(R3) ,R6 ; Get DWB address 
0 1 6 11 BGE 3 If GEQ then © DW WB 
01B9 3 be 1 BSBW DLESSETMODE 3; Process 108. SETMODE function 
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D nbn newly recieved D = SFE 1383 83:95:95 ENETACE. SREINETDLE MARS 1 . 
- -SBTTL DLESDISPATCH = Dispatch newly recieved DLE IRP 
; DLESDISPATCH = Dispatch newly received DLE IRP 
: ie routine is cotteg, Hye AQB elopareh ton we when an IRP is dequeued 
; which has the PHYSIO f set in ag This flag is used 
3; by convention between Ne DRIVER and NDDRIVER® to distinguish between 
; various flavors of IRPs. 
3 Inputs: 
5 
| 


vb4~b60 


L 1 
- NET = 
DLE Sot PA bf 4 ocessing newly recieved D ie Ser] 88e 8}: 96; (5 PRE TNeS eae ste Yor mars 1 rom () 
\% ; Give the IRP back to the DLE driver with the I/0 status setup 
53 ys 1g 90$ fst Re bid I IRP at tucked away somewhere 
55 I ASD A 18 MOVL  IRP$L_UCB(R3),R5 : Get UCB ad 
00000000'GF 1 E 1 JSB G*EXESINSIOQ ; Queue ceakene to driver 
0 074 20 100$: RSB ; Done 
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P ro 
E = Rend 
4 ‘7 - -SBTTL DLESACCESS - Handle IO$_ACCESS function 
f 4 i : DLESACCESS = Process I0$_ACCESS function for a DLE channel 
7 g: : This routine is entered after the By ake I10$_ACCESS process ine 
7 3: done in the DLE driver. It's main function i§ to perf all 
7 3 3; those things which must be done in process context in order to 
if ; 3; setup the connection between DLE user and the datalink. 
Bf 1 ; Inputs: 
o3 : R3 = IRP address 
73 5 ; Pi = Circuit name for DLE 1/0 
0079 ? ; Outputs: 
bors 9 ; R3 = IRP address 0 if not to be returned to driver yet. 
9073 40 5 : TRPSL_ 10ST1 = 1/0 status 
0075 4¢ bt BLESACCESS: 
54 AS 4 Boe 8 ti CLRL IRPSL_EXTEND(R3) ; Assume no rcvd msg to be returned 
0078 a2 ; Construct a descriptor of the circuit name 
2¢ 83 «6C1 «(0078 43 ADDL3 QIRPSL_ SVAPTE(R3) »= Get address of P1 ABD 
4 08 0078 348 $c~ FIB*ABDSC fg RG 
57 02 A4 3C 007D 49 MOVZWL ABDSW _COUN Get Length of circuit name 
51 64 3C 0081 50 MOVZWL ABDSW UoTEXt tre 3; Get offset to circuit name 
58 01 A441 9E 0084 it MOVAB  1+ABDSW_ ae R8 : Get address of text (skip acmode) 
0089 3g : Locate the CRI and LPD for the circuit, and make sure it is 
494 $2¢ ; in a state to handle MOP mode. 
5B O0000000°EF 00 0089 56 MOVL NETSGL_CNR_CRI,R11 : Point to CRI root block 
A 04 0090 57 CLRL 1 ; Start at autterre of cal list 
50 0000°8F 3C B296 58 MOVZWL #SS$_NOSUCHDEV,RO ; Setup default ecrer code 
st 59 SSEARCH oat cri,s,nam : Lookup CRI by circuit name 
48 50 E9 OOA6 60 BC v8 : If error detected, then report it 
0A9 361 SGETFLD cri,t ; Get circuit state 
50 0000°8F 3C 00B6 66 MOVZWL asst Leste cr eR RO ‘ Assume circuit not on 
01 58 di 00BB 36 CMPL 8 #NMASC_STATE_OFF 3 Circuit f? 
13 008 64 BEQL : If s report. an error 
FF3D° 30 o¢ 65 BSBU NETSLOCATE_LPD ; Get *Pép's 
2B 5 E Cc 06 BLBC : Exit if eet “detected 
50 4C AS DO 0006 36 MOVL  IRPSL -DIAGBUF(R3),RO —; Get DWB addres 
¢ A 80 CA rt: MOVW LPDSW-PTH(R6) : Stare LPD ID of gircutt 
EA CD $ Dw Wasi CPATHCROS- : into DLE window bloc 
OCF 0 SGETFLD ¢ : Service functions at ial 
50 0000°8F 3c O0Dc 371 MOVZWL asst {vmODE .Ro ; Assume service disabled 
0D 58 3; pe} 7 BLBS R8,9T : If disabled ther report error 
07 ~«C £4 37 BBS #LPDSV_Xx25,- ; No service is allowed 
08 22 A6 Eg a LPDSW_STS(R6) 918 : on X.25 DLM circuits 
E9 7 ; If this is a multiaccess circuit, such as Ethernet, 
E9 7 $ then skip the circuit transition, since there is no 
E9 78 : circuit ‘mode’. 
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¥O4-050 DLESACCESS - Randle 108_ ACCESS function ety 83:95:95 NETACP.SRCINETDLE.MAR; 1 he (4) 
cE: Soro 380 bec 8s WLPDSV_BC Skip if not broadcast 
- : not broadcas 
06 22 NG 6B 381 LPDSW_STS{RO) , 108 . 
0 3 ef ¢ BSBw Bf ACCESS 3; Handle broadcast DLE access 
00S5E 1 c} i 7)8: BRW $ ; Return status to DLE driver 
F4 5 4 : Mark the DLE process as the owner of the circuit. If the 
Ree § ; circuit is already owned, return an error. 
OF4 8 $GETFLD cri,l,owpid ; Get PID of DLE owner 
0D 50 €9 0101 9 BLBC ° ; Branch if not currently owned 
OC A3 28 o 104 9 CMPL R8, IRPSL_PID(R3) ; Is it already owned by process? 
1 108 9 BEQL : If so, ok to access 
50 sell «| 7 13a 35 15$: poy cut. SREe—PEVALLOC RO ; Report circuit already owned 
03 ~=E2 iy 94 20$: BBSS #LPD$V_ACCESS,- ; Mark circuit accessed for DLE 
F4 22 A 11 95 LPDSW_STS(R6),15$ : If already accessed, report error 
58 OC be 116 96 MOVL IRPS$L_PID(R3), 3; Get caller's PID 
FEE3® 30 O11A 97 BSBW CNFSPOT FIELD 3 Make process owner of the circuit 
02 €E2 011D 98 BBSS LPDS$V_DLE,- :; Mark in DLE mode 
1D 22 A6 Brie 135 LPDSW_STS(R6) , 308 ; If already in DLE, skip logging event 
01 401 ; Log an event indicating the circuit has been accessed 
4 re : locally by a process. 
55 Q0000000°EF 9E 0122 404 MOVAB NETSAB_EVT_WOE,RS ; Get address of common WQE 
20 A6 =©BO (0129 405 MOVW LPDSW_PTH(R6) ,- 3; Set LPD ID into WQE 
12 AS 012C 406 QESW"REQIDT(RS) 
0140 8F B0 4 5 407 MOVW #EVC$C_DLL_LSC,- : “locally initiated state change’ 
1C AS 1 408 ESW_Evi_CODE(RS) 
03 90 0134 409 MOVB #EVCSC_DLC_POLD_RUNG,- ; Old state = RUNNING 
1—E AS 0136 410 woe$B_Evi_611(R5) 
06 90 0138 411 MOVB #WEVCSC_DLC_POLD_MAIN,- ; New state = MAINTAINANCE 
1F AS Bise 218 woe$B_Evi_Br2(r5) 
FEC1* 30 Sige $1? BSBW NETSEQT_IRTRAW ; Log the event record 
a3 419 : Bring the circuit up in "MOP" state. 
50 0000'S8F 3C¢ 13 417 30$: MOVZWL #LEVSC_DLE_ACC,RO ; Setup DLLTRN event code 
FEBS" 30 bee! $18 BSBW SET_OLC_EVT ; Queue the request 
0147 420 : Wait for the circuit to become ready. When it does, the 
ae 4 i 1 3 routine DLESLPD_STATUS will be called. 
O0000004"FF 63 OEF 0147 4 j [NSQUE (R3),@DLE_ACC+4 ; Insert IRP onto waiting queue 
53 D4 014 424 LRL : Indicate IRP not to be returned 
04 11 «015 425 BRB 100$ 
133 459 
Hf ? 8 : An error has been detected. Return the IRP back to the driver. 
152 430° 
38 AS 0550 3K Bie $3) 90$: MOVZWL RO, IRPSL_IOST1(R3) ; Pass status back in IRP 
05 0156 432 100$: RSB 


ocessing 
= Check completion of MOP 


=o 
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-SBTTL DLESLPD_STATUS = Check completion of MOP transition 


DLESLPD_STATUS = Check completion of MOP transition 


; This routine is called when an LPD has made the transition into MOP 


; transition was successful, ¢t 


state or if an error has occurred. It 1s always ees ee by DLLTRN 
; on circuit transitions if the ACCESS flag is set in the LPD. 


If there is a preness yeiting to access the circuit, then if the 
en that process is allowed to proceed 
with the access. 


; Inputs: 


R6 = LPD address 
RO = Status of attempted MOP transition of circuit 


; Outputs: 


DOW 00000 Ns oo 
Sah tal tal alah allah laa ee eke ek ak ak ak Sak ek ka take la a ea aka eke a ee 


mo wo-cVT7Tso 
om —OoOW-—oom 
NNO 


@ 
So 


J 
oO 
ee eae a a a 2 — 2 — 4 — 8 os 2 = 9 as — > 2d so a a a a a a ss a) om 


RRR See tee ee Sn ' wv 


NOOO PDOOOOA LS S— HOOOOOOLNW 

FP oY oF ot of at at at at at at a 
DOWOOOODOOOOO NNN 

SDOONA NEW $0 OONOAU EW OOONOUS 


None 
RO-R3,R8-R9 are destroyed. 


ESLPD_STATUS:: 
PUSHR #*M<R4,R5> ; Save registers 


: Locate the DWB corresponding to the process attempting 
3 the circuit ACCESS. 


MOVAB DLE_ACC,R1 
MOVL R1,R3 

10$:  MOVL (R$),R3 
CMPL Rs Ri 


MOVL RPSL BAGS (RS) RS 


Get address of DLE ACCESS IRP Listhead 
Setup for a 

Skip to next IRP in List 

End of list? 

If so, then ignore the status 

Get DWB address for ACCESS request 


CMPW LPDSW_PTH(R6) ,- Is it for this circuit? 
DWBSW~PATH(R4S 

BNEQ ; If not, keep looking 

REMQUE (R3),R3 ; Remove from pending ACCESS List 

BLBC RO,20$ : Branch if circuit is down 

: Setup the datalink channel and UCB address in DWB 

MOV  LPDSW_CHAN(R6) ,- ; Save channel to datalink 
DWBSW-DLL_CHAN(R4) 

MOVL LPDS$L_UCBTR6) ,- ; Save UCB of datalink 
DWBSL-DLL_UCB(R4) 

: Set the circuit substate to ‘‘auto-service’’ 

Move #NMASC_LINSS_ASE,- : Set circuit substate 
LPDSB_SUB_STA(R6S 

BRB 0$ ; Pass success back to driver 


; Failure to make transition - reset LPD to original state 
208: PusHL RO ; Save final status 
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0167 3 1 491 BSBW LEAVE_MOP_STATE 3; Leave MOP state 
4 abo 135 236 POPL bf ati ; Restore final status 
13 $32 ; Report the status back to DLE driver 
38 A3 50 0 194 496 50$: Movw RO {RPSL 1OST4 (R3) ; Store status in IRP 
5 1¢ AS DO 0198 49 MOVL RP$L_UCB(R3) RS ; Point to the DLE UCB 
Q0000000'GF 16 135 $38 JSB g EXESINS 100 ; Queue packet to DLE driver 
19 1 O1A 49 BRB 0$ 
1A4 0 
1A4 1 60$: 3 
1A4 § ; There is no ACCESS, request, ponding for this circuit. If 
1A4 3 the LPD status is ‘‘success’’, then we can ignore it, since 
ie abe ; its not relevant except to restart a pending ACCESS. 
1650 €8 Ding 206 BLBS RO, 908 : Exit if LPD is ok 
1A7 508 ; There may be an active DLE session gervenety in progress 
1A7. 3509 3; over this circuit. Tell the DLE driver to locate all DwBs 
Bias 319 : associated with this circuit, and if any, to abort them. 
0 A6 3C OQ1A7 $18 MOVZWL LPD$W_PTH(R6) ,R8 3; Pass path ID to driver 
55 Q0000000'EF DO O1AB 51 MOVL  NETSGC_DLE yc. RS : Get DLE UCB address 
1 088 cS. 00 b18¢ 514 MOVL UCB$L_BoT (RS) ,R1 ; Get DDT address 
04 B1 16 18 515 J$B @DDT$C_UNSOL INT(R1) : Call “‘LPD down’’ entry point 
O1BA 516 3; with RO = status code 
O1BA 517 : and R8 = path ID 
O1BA =518 ; 
O1BA =519 : Leave MOP state 
O1BA 520 * 
0138 30 O1BA 521 BSBW = LEAVE_MOP_STATE ; Leave MOP state 
30 a sie 256 90$: POPR #*M<RZ,RSS ; Restore registers 


a 
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5 2 -SBTTL BC_ACCESS = Handle DLE access to broadcast circuit 
BC_ACCESS = Handle DLE access to multiaccess circuit 


aS ae 


This routine is called when an access is being attempted to an 
; Ethernet. Since there is no ‘MOP mode"’ for multiaccess circuits, 
; we sitiply assign a new channel to the device, issue a SETMODE to 
enable access to a given destination, and complete the access. 


Inputs: 
= IRP address for ACCESS request 
malye addr 


R3 
R6 ess 
R1 = CNF/CNR addresses for CRI 


0 
; Outputs: 
; RO = Status code 
C_ACCESS: 
: Make sure the circuit is in the “run” state 
bes #LPD$V_RUN,- 3; If circuit not ready, 
Ww _STS(R6) 10 


LPD$ 10 
MOVZWL #SS$_BEVINACT,RO ; Return “'circuit not on" 
RW 90$ ; Report the error 


8 


04 

08 22 A6 

50 0000°8F Hi 
0051 


10$: 
Set a flag in the DWB indicating that this is an NI. 


IRPS$L_DIAGBUF (R3) ,R4 ; Get DWB address 
IT #DWBS9_BC,DWBSW_FLAGS(R4) ; Indicate circuit is an NI 


Assign a new channel for this DLE session. Each DLE 
session uses a new NETACP channel so that the demultiplexing 
done by the datalink for received messages (based on the 
source node) can be used by the DLE driver to distinguish 
incoming messages between the various DLE users. 

MOVZWL #SS$_NOSUCHDEV,RO 
$SGETFLD cri,S,vmsnam 
BLBC = RO, 90$ 
MOVQ R7,-(SP) 
MOVL SP,R 
SASSIGN_S BEVNAM=(RO) ,- 

see eee PLL CMR 
BLBC Bye 708 
PUSHL R 
MOVZWL DWBSW_DLL_CHAN(R4) ,RO 
JSB G*1OCSVERTFYCHAN 


L 
MOVL CCB$L_UCB(R1),- 


54 4C AS DO 


Be Se Se Sete ee CBee eess OM 
mo 
=< 
or 


50 0000" 8F 
33 50 

Be 

50 SE 


Ww 
o 


Setup default error code 

Get datalink device name 
Exit if error detected 

Push descriptor on stack 

Get address of descriptor 
Assign a new channel for DLE 


~J 
ovo 


RM HMMMS SOV FOV VIII FVOOOOOAOCOOAIOOAOAAOOOAOHOAAAOOOOOoO wd 


pany 
PD COD BD SIU TF SMD ODAOOAOOOA HK OFFS SUMO COCOCOOCOCOCOCOCOOOOOCOOOOOOOoOOO HM 


Pop descriptor off stack 
Exit if error detected 
Save IRP address 
Get channel number 
Get the CCB address; ignore errors 
Restore IRP address 
7 Save the datalink UCB address 
DWBSL~DLL_UCB(R4) 


BSBW ATTACR_UNSOL_MSG Pass unsolicited message to user 
MOVL S*#SS$_NORMAL ,RO 3 Success 
RSB Exit with status 


9 
8 

50. 4C AG 
00000000 ' GF 
53 

61 

8 A4 
04E5 
00 


4 
50 
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POPOPOROPOPONONONIND 2 2 hh TO 
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WmSoo OOOOUV0o 


m 
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Se 


90$: 


E 16 
16-SEP-1984 01:24:27 VAX/VMS Macro V04-00 Pa 1 
rocess I0$_SETMODE reques 873Ep=19 4 3:99:99 NETACP.SRCIJNETDLE .MAR; 1 * ( 


-SBTTL DLESSETMODE - Process IOS_SETMODE request 


DLE processin 
DE 


4 
7) 


+ 
: DLESSETMODE = Process IOS_SETMODE request at process level 


This omnes is called to perform all work needed for the DLE SE TRODE 
; Q10 at IPL 0. This ing ludes issuing a SETMODE function to the datalink 
; driver on the DLE user's behalf. Most of the work done for the SETMODE 
; has already been accomplished by the DLE driver. 


r 
P 
3 
4 
5 
; 


0; 
33 : Input 
; Inputs: 

so 

94 ; Rg = DWB address 

32 ; R35 = IRP address 

39 : Ps = UNA P2 buffer (used only for DLE access to UNA) 

a8 ; P3 = Ethernet remote address (used only for DLE access to UNA) 

H+ 3 P4 = Substate 

oR) : Outputs: 

603 ; R3 = IRP address, 0 if not to be returned to driver yet. 
one ; IRP$L_IOST1 = 1/0 status 
606 BLESSETMODE : 
608 


3 For point-to-point circuits, propagate the apecevese updated 
; circuit substate to the LPD (it has already been set in the 
; DWB by the driver) so that we can see it with existing network 


management. 
6BS #0WBSV_BC,- : If point-to-point circuit. 
DWBSW_FLAGS(R6) ,10$ 
MOVZWL DWBSW_PATH(R6) ,R8 Get LPD ID 
PUSHL R6 Save DWB address 
BSBW Nc TSF IND_LPD Locate LPD 
MOVL R6,R2 Set LPD address in R2 


Restore DWB address 
; If cannot be found, abe it 
; Copy substate value to LPD 


RO, 10$ 
MOVB § DWBS$B_SUBSTA(R6) ,- 
LPD$B~SUB_STA(R2) 


10$: : 
3; Construct a descriptor of the P2 buffer (UNA P2 buffer). 
3 If none specified, then skip the SETMODE. 
ADDL3 @IRPSL_SVAPTE(R3),- ; Get address of P2 ABD 
A C_NAME*ABD$SC_LENGTH,R4 
MOVZWL ABDSU_COUNT(R4) ,R7 ; Get length of P2 
BEQ 40$ ; Skip if none 


MOVZWL ABDSW_TEXT(R4),R1 : Get offset to P2 data : 
MOVAB 1+ABDSW_TEXT(R4)CR1),R8 ; Get address of P2 data (skip acmode) 


Issue a SETMODE to the datalink driver to establish 
shared’’ access to the remote node. This allows 

more than one DLE user to use the protocol type at the 
same time - demultiplexing is done for received messages 

based on the remote node address. 


ie» J 
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38 AS 


48 A6 
50 ©6000" 
50 


53 gp 

50 =4C A6 C 
Q0000000'GF 16 
73 a + 


DO 
BO 
05 


DP Dat + 6p to 6 po ag ty tg I ee oy en 
ANMAMNIOD WONIMOOOOOOMOMOO Pv IrNOOWWWVIIO £—mM 
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E processin 
- Process 
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PDP PVs BB EEE 
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; Push descriptor of UNA P2 buffer 

; Get address of descriptor 

MOVAB  1058,R2 : Get address of 1/0 status block 

$Q10W_S FUNC=#10$ SETMODE! 10$M CTRL! 1OSM_STARTUP, - ; Issue request 
CHAN=DWB$Q_DLL_CHAN(R6),- 
EFN=#NETSC_EFN_WAIT 
10SB=(R2),= 

P2=RO 


‘ SP 
BLBC RO,90$ 
MOVZWL (R2),RO 
BLBS = RO 368 
MOVL ack ), IRPSL_I0ST2(R3) 


MOVa R7,~-(SP) 
MOVL PRO 


Pop descriptor off stack 

Exit if error detected 

Get final I/0 status 

Exit if ok 

Return UNA lLongword to user 

; Store primary status and exit 


; As a result of a SETMODE to the UNA driver for LIMITED protocol 
3 access, the UNA driver may have evaporated the UCB we initiall 
; got after the SASSIGN, and “‘integrated’’ us into an existing UC 


or the first user of the protocol type. As a result, we must 
re-lookup the datalink UCB address immediately after the SETMODE, 
; and reset our saved value, whether it changed or not. 


RS ; Save IRP address 

MOVZWL DWBSW_DLL_CHAN(R6),RO ; Get channel number 

J G* IOCSVERTF YCHAN ; Get the CCB address; ignore errors 
R3 3; Restore IRP address 

MOVL CCBSL_UCB(R1) ,- ; Save the datalink UCB address 

DWBSL_DLL_UCB(R6) 

MOVL S*#SS$_NORMAL ,RO ; Successful 

MOVW RO, IRPSL_10ST{(R3) ; Store status in IRP 

R ; Exit with status 


4] 
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DLESDEACCESS : Process 10$_DEACCESS requ ae Yi gh: 45: 48 NETACP.SRCINETDLE.MAR; 1 a (8) 
v4 ore ‘ -SBTTL DLESDEACCESS = Process IOS$_DEACCESS request 
nt ere 3 DLESDEACCESS = Process IO$_DEACCESS request 
A7 976 : This routine is called to perform all work needed for the DLE DEACCESS 
A? 677; Q10 af IPL 0. If this is a point-to-point circuit, then we must cause 
4 ors : the circuit to revert back into its original state. 
Ar 6 0 : Inputs: 
A? 6 g : Rs = DWB address 
v4 ? 7 ; R35 = IRP address 
8 7. ? 5: Outputs: 
O2A7 b8 : R3 = IRP address, 0 if not to be returned to driver yet. 
O2A7 688 ; IRP$L_10ST1 = 1/6 status 
O2A7 689 ;- 
O2A7 690 DLESDEACCESS: 
O2A7 691 3 
QO2A7 69 ; Locate the circuit data structures based on the LPD ID 
8 nf o87 3 stored in the DWB at access time. 
54 56 p0 02A7 695 MOVL RG, RG ; Save DWB address for Later 
58 3E A6 C QO2AA 696 MOVZWL DWBSW_PATH(R6) ,R8 ; Get LPD ID 
41 13° O2A 697 BEQL 70$ 3; If none, report error 
FD4D" 30 028 698 BSBW NETSGET_LPD_CRI ; Get LPD, CRI addresses 
36 50 SEO osez +44 BLBC RO,90$ ; Exit if error detected 
3see 701 ; If this is a multiaccess circuit, such as Ethernet, 
0286 70 $ then skip the circuit transition, since there is no 
0286 70 3 circuit “‘mode’’. 
0286 704 . 
OA £1 0 86 705 BBC #LPDS$V_BC,- ; Skip if not broadcast 
OD 22 A6 02B8 706 LPD$W_STS(R6) ,208 
028B 8707 SDASSGN_S CHAN=DWBS$W_DLL_CHAN(R4) ; Deassign channel to datalink 
24 11 0206 708 BRB 90$ ; Exit with status 
osce 709 20$: : , 
02Cc 710 3; Make sure this user is actually the current ‘‘owner’ 
02c8 711 : of the circuit. 
02C ay : 
ogc 71 $GETFLD cri,l,owpid : Get the owner PID 
19 50 €9 02D 714 BLBC RO,70 ; If none at all, report an error 
OC A3 3 D1 bgd8 715 CMPL Be IRPSL_PID(R3) ; Check it this user is owner 
1 12 3 4 £18 BNEQ 70$ : If not, return an error 
0 43 £13 : Leave MOP state 
0017 30 DE f 0 BSBW LEAVE_MOP_STATE ; Leave MOP state 
6 El 7 § : Bring the girsuit down, which will cause it to attempt 
E1 7 s to re-initialize, this time in normal mode (because the 
4 f : ; DLE flag is off). 
50  0000'°8F 35 £1 7 6 MOVZWL #LEVSC_LIN_DOWN,RO : Setup DLLTRN event code 
FD17° 30 3 7 BSBW SET bLC EV 3 Queue the request 
50 00° 00 E 728 MOVL $*#SS$_RORMAL RO ; Success 


"6 Db6, s MDACECPEE SrREEEE!09 05 oeaccess reau “ECSERSIEL GU:G4:G7 HARUM SRESR EYRE Qe. ase If, 


38 AS = 50 BO a i 90$: poy RO, IRP$L_10ST1(R3) : Store status in IRP 


F Exit with status 
50 0000°8F 7 Fi 70$: MOVZ2WL #SSS$_FILNOTACC,RO ; Circuit not accessed 
F4 Pe. =F, BRB 90$ 
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: -SBTTL LEAVE_MOP_STATE = Leave MOP state 
; LEAVE_MOP_STATE = Leave MOP state for an LPD 
This routine is called to reset LPD fields when leaving MOP state. 


es De 


Inputs: 

: R10/R11 = CRI pointers 

; R6 = LPD address 

; Outputs: 

; None 

LEAVE_MOP_STATE: 

> Mark the circuit no longer accessed 


SSNS 
SUPP ES Be BS BS SB NII 


ODNAVUE WN O OONOU EW" OOONOU 
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CLRBIT #LPOS$V_ACCESS,- ; Mark no longer accessed 
LPDSW_STS(R6) 
SCLRFLD cri,l,owpid ; Clear the owner PID 
3 ; If we are just leaving MOP mode, then reset circuit 
3 123 ; substate and log an event record. 
02 €5 03 761 BBCC #LPDSV_DLE,- ; Clear DLE flag 
21 22 A6 3 16g LPDSW_STS(R6) , 30S ; If already cleared, skip following 
OA 90 03 76 MOVB #NMAST_LINSS_SYN,- ; Enter ‘synchronizing’ substate 
37 A6 3 764 PD$B_SUB_STA(ROS 
55 Q0000000'EF 9E ; 765 MOVAB NETSAB_EVT_WQE,R5 ; Get address of common WQE 
20 A6- «BO 76 MOVW LPDSW_PTH(R6),- ; Set LPD ID into WQE 
iF AS 3 76 WOESW-REQIDT (RS) 
0140 8F BO 03 768 MOVW vc$t_DLL_LSC,- : “locally initiated state change'' 
1C AS 3 769 WOESW_EVL_CODE(RS) 
04 90 03 770 MOVB #EVCSC_DLC_POLD MAIN,- ; Old state = MAINTAINANCE 
1E AS 3 771 QE$B Evi B11(R5 
03 90 ; ie mMOvB = #EvC$C_oLE roo RUNG,- ; New state = RUNNING 
1F AS 77 WOE$B EVL_BT2(R5) 
FCDO’ 30 03 774 BSBW NETSEQT_IRNTRAW ; Log the event record 
3 775 308: RSB 
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P -SBTTL DLESCANCEL = Process DLE cancel request 
; DLESCANCEL = Process DLE cancel request 
; This routine is called to all work needed for a cancel of a 


erform 
; DLE ‘accessed’ channel at TPL 8. Presently, nothing needs to be done 
; except the datalink cancel I/0 already done by the driver. 


R3 = IRP address 
; Outputs: 


R3 = IRP address, 0 if not to be returned to driver yet. 


: Inputs: 
: IRPSL_10ST1 = 1/0 status 


OD Sy 5 — 9 ss > a Ss as a a ts i 


793 :- 

794 DLESCANCEL: 

79 MOVL $“#SS$_NORMAL ,RO ; Successful 

196 mov RO, IRPSL_IOST4(R3) : Store status in IRP 
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yoseb00 DUES C UP e Inicistizc DLE on broadcast Sasep-ione Ooriosie EAST ACS. eaesnevoreCgaR:1 Page By 
g 444 ; -SBTTL DOLESBC_UP = Initialize DLE on broadcast circuit 
2 1 3 DLESBC_UP = Initialize DLE on a broadcast circuit which has just come up 
9 § ; This routine, — ec tes when a broadcast cincute has just come up and 
9 4 ; entered the State, It sets up NETACP as the ‘'shared’’ protocol user 
9 5 ; of the “toad/dump" ond “Loop back’ NI protocols, so that DECnet can 
2 $ : receive requests from other gan on the NI. 
9 88 : Inputs: 
9 09 ; 
9 19 3 R11 = CRI CNR address 
9 73 R10 = CRI CNF address 
9 \¢ 3 R7 = ADJ address 
0339 13 R6 = LPD address 
0 2 13 ; R4 = RCB address 
9 16 : Outputs: 
0339 13 : sesh 
0339 18 ; RO = Status code 
0339 19 ; 
83 2 31 : R1 is destroyed. 
0339 H é bLEsac _UP: 
O3FC 8F BB O330 : Z PUSHR #*M<R2,R3,R4,R5,R6,R7,R8,R9> ; Save registers 
§33 825 : If service functions are disabled for this circuit, then do | 
ba30 8 § ; not enable ‘‘Load/dump" or ‘‘lLoopback'’ protocol types. 
0330 855 ScerFLp ent l,ser 3 Get SERVICE fla 
64 58 €8 0 4A 869 8,90$ : Branch if disabled | 
Bee0 3 ; Allocate and initialize a new BC context block | 
a ae: b3cp a38 MOVZWL #BC_C_LENGTH,R1 ; Size of structure 
enone 8 16 0350 34 JSB NETSACLOCATE : Allocate the block 
50 50—s EY ba26 Hi BLBC RO,100$ i EX t if error detected 
52 dD 59 6 PUSH R ave ggéress of block 
Oc A2 20 00 6& 00 2¢ 3? 3 MOVC B5..csp).#0,40c_c_Lencre-i2’ gleCRe) Zero the block 
55 8ED0 6 8 POPL $ to block address 
50 26 AS +} 6 39 MOVAB 3 a (RO) MSGS(R5),RO ; et address of Listhead 
60 50 OD 69 40 MOVL 3; Init listhead 
60 80 bE 6C B41 MOVAL RRO} 
50 14 AS 3 $f ri} MOVAB Bro OéuBe ORCVCRS) , RO ; Get address of lListhead 
Se. oa. 3 4 MOVL rg 3; Init listhead 
60 80 DE ds 44 MOVAL tRO)+ 
50 1c a5 9 7 45 MOVAB aC 0 “eu. RCV(RS), RO ; Get address of Listhead 
60 30 D0 0570 B48 MOVL R07 (RO) : Init listhead | 
60. 80 DE 9 4 MOVAL (RO)+#, (RO) ; 
OE AS 20 ri 3 re MOV LPDSWPTH(R6) ,BC -W_LPD(R5) ; Save LPD of associated circuit 
0000000C'FF 6 E : 49 INSQUE (R5),@BC_QUEUE+4 > Insert block into queue 
F 51 :  Imitialize ourselves as the ‘default user’ of the “‘load/dump” 
: 26 : protocol type. 
53 AS 3€ F 54 MOVAW BC_W_LD CHAN(RS) , R3 ; Point to word to receive channel # 
54 0000008 ‘EF 9E 3 55 MOVAB LOD_SETMODE,R : Point to descriptor of SETMODE buffer 


L 16 
TY ACP DLE processin SEP-1984 01:24:27 VAX/VMS Macro V04-00 P 1 | 
W54 580 bureae UP = hit al ze DLE on broadcast 197 EET obe 2:19:17 CNETACP.SRCINETDLE.MAR; 1 — yp | 


00A 3 BSBW INIT YNSOL. CHAN 3 Initialize channel 


16 5 F 4 3? BLBC RO,10 ; Exit if error detected 
A 25 :; Initialize ourselves as the ‘default user’ of the ‘‘loopback'’ 
“ 1 3; protocol type. | 
53. 12 AS) «3E (OSA 3 MOVAW BC_W_LP_CHAN(RS),R3 : Point to word to receive channel # 
54 smaads * 3 AS 6 MOVAB LP-SETMODE,R4 3 telet to descriptor of SETMODE buffer 
094 AB 64 BSBW INTT_UNSOL_CHAN : Initi alize channel 
05 50 =€9 s  _ BLBC RO, Bra nch if error detected 
O3FC 8F Ba B 06 90$: POPR #°M<R2,R3,R4,R5,RO,R7, RB, R9> ; Restore registers 
5 5 6 RSB : Exit with status 
O3pe 869 | 
8 B6 % 3; An error occurred heey to setup the circuit for service functions. 
6 71 ; Log an error, and bring down the circuit. 
gas a 
55  QOO00000'EF 9E B6 874 100$: MOVAB NETSAB_EVT_WQE,R5 ; Get address of common WQE | 
07 BO 0380 75 MOVW #EVCSC"NMA-ABS,- ; “aborted service request’ 
1C AS 038F 26 WOESW_EVL_CODE(RS) 
04 90 03¢1 87 MOVB #EVCSC_ NMA PRSN_LOE,- ; Reason = “Line open error’ 
1E AS 03¢3 6878 WOE$B_Evi_BT1(R5) 
FC38" 30 BaCe 879 BSBW NETSEVT_IRTRAW : Log the event record 
50 0000'8F 3C 03C8 880 MOVZWL #LEVSC_CIN DOWN,RO ; Setup ‘circuit down’’ event 
FC30° 30 O3CD 881 BSBW SET_DLL_ : oe event to DLLTRN 
DF 11 O3D0 882 BRB 3; Exit 


51 eooepyes" 


50 9.24 B5 
00000000 'EF 
F2 


50 14 ; 
00000000 ' EF 
F2 
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Ble on broadcast ¢ asst 63: 9; # f 


AX/VMS Macro V04-00 
NETACP.SRCIJNETDLE.MAR; 1 


-SBTTL DLESBC_DOWN = Cleanup DLE on broadcast circuit 


; Inputs: 


R6 = LPD address 


; Outputs: 


None 


SLESBC DOWN: 


PUSHR #°M<R2,R3,R4,R5> 


+ 
: ; DLESBC DOWN = Cleanup DLE on broadcast circuit 
t this routine is called when a broadcast circuit leaves the‘ 


; We ef deallocate any BC context blocks if they were associated with: this 
circuit. 


; Save registers 


‘run’’ state 


: Locate the BC block associated with this circuit. 


MOVAB BC_QUEUE,R1 


MOVL $ 
mMOoVL = (R5) WS ; 
CMPL = RS RI : 
BEGL ; 


8 
CMPW = BC_W_LPD(R5),- 
LPOSQ_PTH(R6S 
BNEQ 10s : 
REMQUE (R5),R5 F 


Get address of BC queue 
00 


Setup for 
Skip to next 
End of List? 


lock in queue 


If not bial skip it 
Does the LPD ID match? 


If not, keep looking 
Remove BC from List 


: For any non-zero channels, deassign them 


ROVZWL BC W_LD_CHAN(RS) ,RO 


SDASSGN_S CHAN=RO ; 
MOVZWL “BC_W_LP_CHAN(RS) ,RO ; 


BEQL 
SDASSGN_ S$ CHAN=RO 


; Get “‘Load/dump"’ channel 


If nonzero, 
Deassign it 


Get a epback"* channel 


If nonzero, 


; Deassign it 


: Deallocate all unsolicited messages still waiting for 


3 the process to deal with them. 


REMQUE @BC_@_UNSOL_MSGS(R5) ,RO 
BV 45$ 

JSB NE TSDEALLOCATE 

BRB 40$ 


: Deallocate all receive 10wQEs 
3 the NI driver. 


REMQUE @BC_0_PND_RCV(RS) .RO ; 
JSB NETSDEALLOCATE 
BRB 60$ ; 


Get next unsolicited message 
Branch if none left in queue 
Deallocate the block 

Empty the entire queue 


waiting to be issued to 


Get nent waitin 


Branch if none 


secgtve 1OWQE 


e in queue 


Deallocate the block 


: Deallocate the BC context block 


; Empty the entire queue 


Vie 80 


B 1 


- NETACP DLE processin 1 4:27 VAX/VMS Macro V04-00 Page 
DLESBC_DOWN - tleanse BLe on broadcast c g73EF 71982 8}: 9; :17 CNETACP.S RCIN NETDLE.MAR; 1 ’ d 
42C 941 
42C 8694 Sereit #BC_V_DELET Fe BC_B_FLAGS(R5) ; Mark block for deletion 
OC AS 95 0431 94 STB © BC_B_REFCNT(RS)~ ; Are there still receives outstanding? 
09 «12 0434 944 BNEG 90$ ; If so, wait for them ‘o compl ete 
0436 945 ; before deallocating &. bloc 
50 55 DO 0436 946 MOVL : Set the block address 
00000000" EF 16 0439 947 JSB RETSDEAL OCATE ; Deallocate it 
C BS Rezt a8 90$: rece #*°M<R2,R5,R4,R5> ; Restore resiseers 


nnn nnnnnnn nnn ne eee nnn nnn RNS pees Se ——a — —a _ 
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NETD - NETACP DLE processin 16-SEP-1984 01:24:27 VAX/VMS Macro V04-00 Page 24 
WOecb50 INIT _UNSOL. CHAN - initialize channel for £7 een 1882 83:95:99 NETACP.SRCINETDLE.MAR; 1 . (4) | 
| rr 921 , -SBTTL INIT_UNSOL_CHAN = Initialize channel for unsolicited msgs 
| rr 938 ; INIT_UNSOL_CHAN = Initialize channel for unsolicited messages for a protocol 
44 955 : This routine is called to assign a new datalink channel, setup the channel 
44 329 3; to be the ‘default user’ of the protocol, so that messages not directly 
44 957 ; intended for any other ‘Limited users” of the protocol come to us, and then 
| Bee 228 ; issue an asynchronous recieve on the channel. . 
| Bees gay | Toews 

44 96¢ : R10/R11 = CRI pointers 
44 965 ; R3 = Address of word to store channel number 
044 964 ; R4 = Address of SETMODE P2 buffer 
Bee Bo? 3 RS = Address of BC context block 
Ree $67 : Outputs: 
are 4 : RO = Status code 
0442 971 INIT_UNSOL_ CHAN: 
50 O000'8F 3C 044 ar6 MOVZWL #SS$_NOSUCHDEV,RO ; Setup default error status 
044 97 SGETFLD cri,S,vmsnam ; Get datalink device name 
6C 50 0454 974 BLBC RO, 90$ : Branch if error detected 
7E 57 7D 0457 975 MOVQ R7,-(SP) ; Push descriptor on stack 
50 =65E 045A 976 MOVL »R ; Get address of descriptor 
0450 977 SASSIGN_S DEVNAM=(RO),- ; Assign channel to NI driver 
0450 978 CHAN=(R3) 
SE 08 CO Q46A 979 ADDL #8,SP 3; Pop descriptor off stack 
5350 €9 be98 +44 BLBC RO,90$ : Branch if error detected 
0470 oes : Issue a SETMODE request to the NI driver to establish the 
0650 oe7 3 channels as accessing the protocol type as ‘‘default user’’. 
0470 985 $a10W_s FUNC=#108_SETMODE | 10$M_CTRL! 10$M_STARTUP,~ 
0470 987 EFN=#NETSC_EFN_WAIT,~ 
$270 989 hee 
2F 50 ? 0491 990 BLBC RO,90$ 3; Branch if error detected 
50 OQO000010'EF 3C 0494 991 MOVZWL 105B,RO : Get final 1/0 status 
25 50 +€9 0498 99¢ BLBC RO,90$ : Branch if error detected 
49E 994 + Allocate and initialize an IO0WQE to to be used to receive 
rh: 4.44 : unsolicited messages for this protocol. 
51 OSFE 8F 3C 049 a9 MOVZWL #IOWQE_C_LENGTH-WOQESC_LENGTH,R1 ; Get additional storage size 
50 03 0 O4A 998 MOVL #WQE$C~S0B_AST,RO : Indicate WQE sub-type 
FB57" 30 04A6 999 BSBW WOESALCOCA 3; Allocate a WQE - a way? succeeds 
¢f ag $3 Be 4A9 1000 MOV ), LOWQE_W_CHAN(R2) ; Store channel to datalink 
4A :; 2 4AD 1001 MOVL R5,10WQE_L~BC(R2) 3; Store backpointer to BC block 
AS B60 0481 1006 MOVW BC_W_LPOTRS),- ; Use LPD ID as REQIDT 
1 ag 4B4 100 WOES@ REQIDT(R2) 
18B5 6 OE #06 : Be INSQUE (R ),@BC_Q_PND_RCV+4(R5); Insert on pending receive queue 
4BA 1 88 ; Issue asynchronous read on the channel, so that we are 
4BA 1 : notified when someone sends us an unsolicited message. 


— 


Vb4=b60 


ween 


“4980 82:99:97 Eh 


; Get LPD index 
; Issue read request 


uccess 
; Exit with status 


1) 
1 
Vatize channel for g-86F 


i 
EE ee 


C 

Cx 
cx 
cx 
Cx 
0D 
OL 
OL 
OL 
OL 
OL 
DL 
DL 
DL 
DL 
OL 
OL 
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Do 
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“ Issue Feed request to NI moet 83:46:45 NETACP.SRCIJNETDLE.MAR; 1 ” (49) 


‘ -SBTTL ISSUE_NI_READ = Issue read request to NI driver 
ISSUE_NI_READ = Issue read request to NI driver 
; This routine is called to issue the read request, and return as soon 


as the request has been queued. All read requests are automatically 
5 peteres by 1 second, so that f there is an abnormal node continuously 


an 

‘ 
oe 
“ 
“nz 
Cc 
ma 


sending messages, we won't get swamped (the NI driver will erep them 
; for us). The delay doesn’t affect normal reception, because the NI 
; driver buffers any incoming messages for us, up to a Limit. 
; Inputs: 
Ri = LPD ID for circuit 
; Outputs: 
None 


RO-R1 are destroyed. 
SSUE_NI_READ: 
PUSHR 


0c #*M<R2,R3> Save registers 


FUSUSUSISIIION EBS EE EB EE AINA IIAP DNININYIPININ 
AOE AWN @ O ODNAUE WN 9 OO NAS WIN 9 OD NAME WN (QOD NAUIE 
e@e 


PAA BBB EEE PPP PLP PEP PPP PPP PPP PPP PPP PPP PPP PP PEEKS EE ZO 
tt td = IOQOOOO HH MH MMMM MMM MM MMMM MM SO OAIAOAOOIAOAOIAIAIOOAOAAOOOOOOOAQOOO 
NNNWOO FO LOND COUWIMM MMMM DW OL LL LW MW THN PALL LLLL LLL LLLP PPP LLLP LEE 


o 
w 
SS SSS SPER RRR RRR RRR ERR RR ERR RR RRRRRRRR RRR. '_> 


oy... 10 78 0 ASHL #16,R1,R1 ; Shift LPD ID into user word 
51 0401 8F 80 0 MOVW #<<WQESC QUAL _DLE>@B>!~ > Overlay QUAL and EVT fields 
52 EG*AF 9€E MOVAB B*50$7R ; Set address of action routine 
53 00000000 00989680 8F 7D MOVQ #1*10*1000*1000,R3 ; Wait 1 second 
FBIF* 30 BSBW WOQESRESET TIM 3; Wait for timer to fire 
BA POPR #*M<R2,R35 ; Restore registers 

RSB ~| 
3; Call here when timer fires . 
58 12 a5 3 §0$:  MOVZWL WQESW_REQIDT(RS) RB ; Get LPD ID NE 
50 55 °° MOVL R5,R : Get timer WQE address NE 
FB12' 30 BSBW  WOESDEALLOCATE : Deallocate timer WQE NE 
3 Locate the BC block associated with this circuit. When found, NE 
; if there are any IOWQEs (receives) waiting to be issued to the NE 
; WI driver, issue them now. | 
54 QO0000008'EF 9E MOVAB BF QUEUE .R4 ; Get address of BC queue NE 
22 54 4 57 MOVL RGR 3; Setup for oop NE 
5 665) (COD 58 5S: MOVL  (R5),R5 : Skip to next block in queue NF 
546 C«SSStsét 59 CMPL =—soR'S, RG : End of List? NI 
4D «613 60 BEQL 90 : If not found, skip i Ni 
58 0€ AS Bi 61 CMP BC -W_LPD(R5) RB : Does the LPD ID match? NF 
Fe 12 $6 BNEQ $ 3; If not, keep Look ing Ni 
52 148 OF 65 108: REMQUE C_Q_PND_RCV(R5) ,R2 3; Get any receives waiting to be issued Ni 
E 1D 64 VS $ 3; If none, hoop Looking N] 
2085 6 of 65 INSQUE (R2),@BC_Q CUR_RCV+4(R5); Insert on outstanding receive queue Ne 
of A 6 $6 NCB BC_B_REFCNT(RSD 3: Increment reference count NI 
50 8 A2 SE 6 MOVAB JOQQE_G_NIHDR(R2) ,RO : Get address of NI header buffer NI 
of $Q10_S FUNC=FIO$_READVBLK,- ; Wait for a message to come in NI 
$ CHAN=10WQE_W CHAN(R2),~ Ne 
0 EF N=#NETSC"EFN_ASYN,= Ne 


fF 1 
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YO4000 ISSUE_NI_READ'- Issue Peas request to NI ety 7 8:99:45 NETACP.SRC ROIN NETDOLE.MAR; 1 ’ (fly 
17 1071 IOSB=I0WQE Q IO0SB(R2),- 
sf rg ASTADR=B*RCV_DLE _MSG_AST,- 
517 1074 pi Tovar a -MSG(R2),- ; Address of receive buffer 
17 1075 ; Length of receive buffer 
ir | £6 4 =R 3; Address of buffer to receive NI header 
cS 50 ? if 107 BLBS RO,10$ : Branch if ok 
24 A2 23 C a? 1 4 MOVZWLE RO, IOWQE_Q_IOSB(R2) 3; Store Q10 status in I0SB 
5 DD 8 $3 107 PUSHL ; IOWQE address 
4E'AF «6001 «= FB O0547 «1080 CALLS #1,B°RCV_DLE_MSG_AST =; Call AST routine 
B9 11 0548 1081 BRB 10$ : Keep scanning 
05 Beeb 19 ¢ 90$: RSB 
4— 1 
O54E i He ; 
054E 1085 ; Receive AST 
O54E 1086; 
054E HH 
054 19 8 RCV_DLE_MSG_AST: 
0000 Beek 1089 -WORD 0 
0550 1090 
50 04 AC DO beee 199) MOVL 4( AP) ,RO ; Get WQE address 
b2e¢ 1038 3 Remove from outstanding receive queue 
50 60 OF 0594 1095 REMQUE (RO),RO ; Remove from queue 
B22! +44 3 Queue a work queue entry to process the 1/0 completion 
60°AF 9E 0557 1099 MOVAB oorar DLE ; Set address of work routine 
OC AO 0994 1100 URE FTONCROD 
FAA1*" 30 O55C 1101 BSBW Uae SINGGUE 3; Insert onto work queue 
04 O55F 1102 RET 


10S: 


: If there is already an unsolicited message received from 
; the remote node waiting for the MOM process to startup, 
3 then drop the message on the floor - don't startup a 


redundant MOM process for the same node. 


G 1 
TD - NETACP DLE processin 16-SEP-1984 01:24:27 VAX/VMS Macro v04-00 Pp a 
VO4~000 RCV_DLE_MS ~Pheceive Snsolicited DLE me 73Ep= 1 3b §3:99:95 NETACP. SRCINETDLE .MAR; 1 _ (38) 
56 i} ¢ ; -SBTTL RCV_DLE_MSG = Receive unsolicited DLE message 
és 1 : ; RCV_DLE_MSG = Receive unsolicited DLE message 
60 11 3 : This routine is called when a receive completes on one of the DLE ‘'shared’’ 
22 1109 ; channels. This means that an unsolicited message has come in which could 
60 1110 ; not be associated with any existing protocol user. Our action is to start 
2° 144) ; up a MOM process to handle the DLE session. . 
$60 1118 ; inputs: 
$60 1119 ; RS = I0WQE address 
056 43 : Outputs: 
0560 1118 ; 
CT 
360 1121 RCV_DLE_MSG: 
54 34 A5 00 0560 11 ¢ MOVL IOWQE_L_BC(R5) ,R4 3; Get BC address 
OC AG «97 $¢ i} ? DECB BC_B_REFCNT(R4S ; Decrement outstanding 1/0 count 
0367 1 5 3 Locate the CRI associated with this circuit 
58 OE AG 35 0567 11 5 MOVZWL BC_W_LPD(R4) ,R8 ; Get LPD ID 
FA92" 30 0568 1128 BSBW NETSGET_LPD_CRI ; Get LPD, CRI addresses 
2c 50—s«éEY B2ge 1 4 BLBC RO,5$ ; Exit if error detected 
0571 1131 : If the BC is marked for rundown, then this 1/0 completion 
o28) 1 ¢ ; should be ignored, and the BC deallocated if possible. 
10 0B A400 3 B25) Vee BBC #BC_V_DELETE,BC_B_FLAGS(R4),4$ ; If BC marked for rundown, 
OC A4 5 0576 1135 TSTB C_B_REFCNT(R4) 3; Any more receives still outstanding? 
i 0579 138 BNEQ $ 3; If so, don't deallocate BC yet 
50 4 p0 0578 113 MOVL R4,RO ; Set address of BC 
00000000°EF 16 O97 1138 JSB NE TSDEALLOCATE : Deallocate BC 
-. 2 94 i125 48, B B 5$ 3 and deallocate IOWQE as well 
586 1741 ; : If 1/0 status was not successful, then stop doing ony 1/0 
280 1108 ; on this channel (assume it is in the process of running down). 
1D 24 AS E€8 0586 1144 BLES IOWQE _Q IOSB(R5),10$ : If 1/0 failure, 
07 BO OS58A 1145 MOV #EVC A - 3; “Aborted service request" 
1¢ AS 58¢ 1146 WOESW_EVL_CODE(RS) 
01 90 : 114 MOVB #EVCSC_NMA_PRSN FRR.= ; “Receive error’ 
1E AS 1128 WOE$B_EVL_BT1(R5 
FA6B’ 30 0592 114 BSBW NETSEQT_IRTRAW 3 Log the event record 
50 0000'8F C 0595 11 MOVZWL #LEVSC_CIN_DOWN,RO : Setup “circuit down’ event 
Faas 0 Q59A 11 BSBU = SET_OLC_EVT ; Queue event to DLLT 
50 DO 0590 1152 5$: MOVL : Get IOWQE address 
00000000'EF 16 O5A0 11 JSB NE fSDEALLOCATE : Deallocate it 
05 ene 11 RSB 
5a? 11 
5A? 11 
SA? 115 
5A7 Ne 
SA7 11 
5A7 116 
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vO4-060 RCV. 


o- 
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moa 
vw 
=z 
“oo 
ar 
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51 246 a6 Y A7 MOVAB Bra UNSOL_MSGS(R4),R1 ; Get address of unsolicited msg queue 
3 51 OD AB MOVL R17R2 ; Setup for loop 
$2 D At 15$: MOVL (R2),R2 : Skip to next msg in List 
1 D1 058 CMPL =e R2_ RI : End of list? 
43 13 B4 BEQL 2 : If so, then skip it 
0 88 86 PUSHR #*M<R1 ? ; Save registers 
0 CMPC #NIHORS17,- ; Does the NI header match? 
38 A A IOWQE_G_NIHDR(R2),- 
A IOWQE_G NIHDR(R5) 
06 BA POPR #*M<RT,R2> ; Restore registers 
33 \¢ BNEQ 15$ ; If it doesn’t match, keep looking 


20S: BRB 30$ ; If match found, drop msg on floor 
: Startup a process to deal with the message 


BSBW STARTUP_MOM ; Start MOM process 


: If the process could not be created, re-issue the read 
3 request using the same buffer. 


GIOHOAOMOOOOOOCOCOOCWWWW 


OOOO O00 0009090900909 09 09 C8 SI NII NIAAA AAAAO 


} 1 
1168 
1164 
! 5 
aBB 116? 
5 1168 
5BC 1169 
5 1170 
5 p : 1 
eames 
5¢4 1174 
O84 1176 
05C7 1 $ 
Oe? 1179 
5¢7 1180 
0c 50 £8 05 7 1181 BLBS  —s- RO, 408 ; Branch if successful 
1884 65 OF OSCA 1 : 30$:  INSQUE (R5),@BC_Q_PND_RCV+4(R4): Insert on pending receive queue 
51 OE AG C 05 1 MOVZWL BC_W_LPDTRZ),RT ; Get LPD ID 
FEEF 3 8 | ; pseu ISSUE_NI_READ ; Re-issue read request 
0506 1 ; 
Bee 1 5 ; Save PID of MOM process just started in unsolicited message 
506 1188 ; context block. From now on, this message is ‘‘tagged’’ for 
0506 1189 ; that process: If the process comes in with an ACCESS function, 
0506 1190 ; we give it the message; if the process dies, we deallocate the 
bee : 1 3 =o mesSage. 

30 AS) 3 6551~— si Bea } § 40$: MOVL R1,10WQE_L_PID(R5S) ; Save PID of associated MOM process 
OSDA 1195 : Insert the message on the queue waiting for the process to 
g2DA ! 38 ; get started. 

28 B46 «65~—COOE g2pA : 4 INSQUE (R5) ,@BC_Q_UNSOL_MSGS+4(R4) :; Insert at end of queue 

4 ; $0 :  Re-issue another receive request for this protocol type 
51 OSFE BF 3C 20F 1 8s MOVZWL #1OWQE_C LENGTH-WQESC_LENGTH,R1 ; Get additional storage size 
50 =—03 8 5E3 1 MOVL #WQE$C~SOB_AST,RO 3 Indicate WQE sub-type 
FAI7" 258 1204 BSBW WOQESALCOCATE ; Allocate a WQE - a weys succeeds 
CAS BO O5E9 1205 MOVW IOWQE_W_CHAN(R5) ,= ; Copy channel to datalink 
C Ae SEC 1 $ 1OWQE_W_CHAN(R2) 
4 A DO QOSEE 1 MOVL 1OWGE _L_BC(R5),- ; Copy backpointer to BC block 
4 Ag SF1 1 38 IOWQE_L_BC(R2) 
1g AS BO OS5F3 1209 MOVW WQESW"REQIDT(RS),- ; Use the same REQIDT 
1 As aFe 1 19 vas sw REQIDT(R2) 
18 B46 6 —E O5F8 121 INSQUE (R2),3BC_Q PND_RCV+4(R4); Insert on pending receive queue 
51 OE A4 C OSFC 1 \¢ MOVZ2WL BC_W LPDTRS) RT ; Get LPD ID 
FEC! 30 600 121 BSBW ss I SSUE_NI_READ : Issue another read request 
05 0603 1214 90$: RSB 


TO DLE processin 16-SEP-1984 01:24:27 \VAX/VMS Macro V04-00 Page 30 
¥54e060 DLESROS. " REQUEST - Parther has requested g- Hiatt a EN TACP.SRCINETDLE MAR; 1 ’ (ie) 
694 | 16 “a -SBTTL DLESMOP_REQUEST - Partner has requested MOP mode 
r ! 18 ; DLESMOP_REQUEST = The circuit partner has requested MOP mode 
604 1220 ; This routine is called when the datalink has At + Sag a MOP message 
? r ' 1 : from the partner node on a point-to-point datal 
6 4 § : Inputs: 
604 1225 ; R10/R11 = CRI pointers 
604 ! § 3 R6 = LPD address 
4 1228 ; Outputs: 
604 1229; ‘ 
O60G 4981 ae: 
bee ! gi : RO-R3,R8-R9 are destroyed. 
604 1 3 BLESMOP -REQUEST: 
OOFO 8F 0604 1235 “PUSHR ” M<R4, ? R6,R7> ; Save registers 
02 €E2 0608 1 $$ #LPDS$V Mark circuit in MOP mode 
1D 22 A6 been ! * UPDSW STS (RE) , 108 ; If already marked, skip logging event 
+44 ! i3 : Log an event indicating the circuit has gone into MOP mode 
55 Q0000000'°EF 9E 060D 1241 MOVAB NETSAB_EVT_WQE,R5 ; Get address of common WQE 
20 A6 «6©BO «(0614 «1 5 MOVW LPDSW_PTH(R6) ; Set LPD ID into WQE 
12 AS 0617 124 WOE SW REIDY (AS) 
ote) or ‘BO Beis : rf: MOVW aah, eptt crscees) ; ‘remotely initiated state change’ 
“ 03 90 bor ! 46 MOVB dice LITERS ; Old state = RUNNING 
04 90 be 1248 MOVB nate LD pAIe,= 3; New state = MAINTAINANCE 
1F AS 6 1249 Matt cept Br2¢r5 
F9D6" 30 86 i ’ 2 BSBW NETSEQT_ IATRAW™ ; Leg the event record 
ge " : 26 : If circuit is already accessed, then ignore MOP notification 
03 be A 1254 10$: 6Bs #LPD$V_ACCESS,- ; Branch if circuit accessed 
2A 22 A6 Og 4 ' 2? LPDSW_STS(R6) ,40$ 
62F 1257 : if service functions are disabled for this circuit, then 
‘ : 28 : gnore MOP request, and recycle circuit. 
62F 1260 ScETFLD crigl ser ; Get SERVICE fla 
24 58 6 ‘ 61 LBS 5 808 : Branch if disabled 
6 F es ; Set the circuit substate to “‘auto-service” 
06 63F 1265 MOVB #NMASC_LINSS_ASE,- ; Set circuit substate 
27 Ab 641 66 LPD$B_SUB_STA(R6S 
sf ! 6 ; Startup a process to deal with the message 
002 30 0643 1 5 6SBW § STARTUP_MOM ; Start mon process 
A50 €9 248 ' 4} BLBC RO,50$ ~ ; Branch if unsuccessful 
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16-SEP-1984 01:24:27 VAX/VMS Macro V04-00 P 1 
7 83:95:95 UNETACP. SREINETDLE MAR: 1 — doy 


; Save PID of MOM process just started in CRI block 


MOVL ——-R1, RB ; Setup PID of created process 
SPUTFLD cri,l,owpid : Set DLE owner of circuit 


; We can respond to the MOP request. Recycle the circuit 
5 eng force it to come up in ‘MOP’’ state (because of the 
: ag). 


MOVZWL #LEVSC_LIN_DOWN,RO ; Setup ‘‘Line down’’ event 
BSBW {.OLC_evT ; Queue the event 


We cannot respond to the MOP request. Recycle the circuit 
and force it to come back in regular mode. 


CLRBIT M#LPDSV_DLE.LPDSW_STS(R6) ; Mark circuit in, "normal" mode 
MOVZWL #LEVSC"LIN_DOWN,RO ; Setup “Line down’’ event 

BSBW ET_OLC BVT 3 Queue the event 

oe #*MZR4,R5,R6,R7> ; Restore registers 


ee 

- retert MOR process BrRE- 1984 02:19:17 EMETACE.SREINEYDLE RAR:1 29° (99) 
a ~SBTTL STARTUP_MOM = Start MOM process 
; STARTUP_MOM = Start MOM process for auto-service 
This routine is called to start the MOM process. 
Inputs: 

R10/R11 = CRI pointers 
Outputs: 


RO = Status code 

R1 = IPID of process, if successful 
R2-R3,R7"°R9 are destroyed. 

TARTUP_MOM: 


A 
PUSHR #*M<R4,R5> ; Save registers 
SGETFLD cri,s,nam 3; Get circuit name 


ta 


VO4~060 START 


$ 
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30 Ss BB 


: Repeatly try to startup MOM, and if it fails due to ‘duplicate 
: erecoes ! then try again with another process name until 
; suceeds. 


FUE IE EBB EE NITION 


AAAWAA ANNAMALAI NIAAA AIA AIA AIAN AI IAAI AAAI IANA AAI AIA AAAI AIA AAI AIAN 


DIDIER EERE REE BE EWWAWAW AWA AAR IIIPNOPONIPINININD BOO OOOOOOOO0O00OO 


RO ODNOA NE WIN @ OOD NAME WIN =O ODNAUN EWN = OOO NOUS WN 0 OONAUS WO OOO 
wv 
c 
n” 
= 
. 


68 ov 
59 01 dO 068 MOVL #1,R9 3; Start with postfix #1 
5E Oc C2 068 10$: SUBL #12,SP ; Allocate prcnam buffer on stack 
3c 4 re PUSHL i 3; Construct descriptor of buffer 
51 QOO00005'EF 9E 068 MOVAB MOM_PRCNAM,R1 3; Get address of FAO string 
50 1 9A 069 MOVZBL (R13+,RO ; Construct descriptor of FAO string 
7E 0 7D 9934 MOVQ RO,-($P) 3; Push FAO descriptor onto stack 
50 SE 00 0698 MOVL SP 3; Get stack address 
069E SFAO_S CTRSTR=(RO),- ; Construct process name 
069E OUTBUF =8(ROS ,- 
069E OUTLEN=8(RO),- 
069E P1=R7,- ; Length of circuit name 
9E P2=R8,- 3; Address of circuit name 
43 P35=R9 3; Process number 
5E 08 CO 068 ADDL SP 3; Pop FAO gtring descriptor 
54 43 7D 0686 MOVQ (SP)+,R4 ; R4/R5 = descriptor of process name 
52 7D 0689 MOVQ 7 ; Pass circuit name as SYSSNET 
180 BF BB 06BC PUSHR #*M<R7,R8> : Save circuit name 
58 0000 900" F 9E co MOVAB MOM_OBJ_NAM,R8 3; Point to ASCIC MOM object name 
: GA C MOVZBL (RBY+,R 3; Construct descriptor of name 
F933" 30 O6CA BSBW  NETSSTARTUP_OBJ_NAM : Startup the object 
180 8F BA O06CD POPR #*H<R7,RB> 3; Restore circuit name 
E f CO 06D1 ADOL #1 ; Pop process name buffer 
0000 * 8F 4 e ree) es | R #SS$_DUPLNAM ; Process name already exist? 
H so, 
FFA6 59 = 01 SA e 608 ACBL #MAX_MOM_PROC,#1,R9,10$ ; Increment number and try again 
1A 11 + « 06E1 BRB 90$ ; Exit with error, but don't log 
re; 208 3 any error = too many MOMs already 
er ; If the process could not be created, log an event record. 
1750 +€8 res 6LBS RO,90$ : Branch if successful 
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¥64-080 STARTUP _MOM Start Mon process ets 7 83:95:49 NETACP.SRCIJNETDLE.MAR; 1 . i?) 
50 pp Gee 1353 PUSHL RO 3; Save status 
55 00000000'EF 3 6E8 1354 MOVAB NETSAB_EVT_WQE,R5 ; Get address of common Wa 
07 «#6=8B 6EF 1355 MOVW VC$C_NMA_ABS,- 3; ‘aborted service request'’ 
1¢ AS 6F1 1 36 WOESW_EVL_CODE(RS) 
04 90 F311 MOVB vest NMA_PRSN LOE .= ; Reason = "‘Line open error’ 
1E AS FS } WOESB_EVL_BT1(R5 
a oS HA Heh | BA BINNTAA 4 bop sre creat roves 
: u 
0 A FD 1 9 90$ POPR #*M<R4 RSD ; Restore registers 
5 FF 1362 RSB 


4 1 
Ategch unsolicited me ; 7$Eb=138¢ 83:99:95 YNET ACE. SREINEYDLE MAR; 1 sone Arh 
-SBTTL ATTACH_UNSOL_MSG = Attach unsolicited message 
ATTACH_UNSOL_MSG = Attach unsolicited message to newly accessed DwB 
This routine is called to search the unsolicited message queue, and 


if one is voyne for this DLE user, to insert the message onto it's 
private receive queue. 


eo 


VO4~060 arta 


0 
3 
: 


=o 
“or 
ao 
o 
1® 
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Inputs: 
R3 
R4 


IO$_ACCESS IRP address 
DWB adress 


Outputs: 


IRPSL_EXTEND(R3) = Address of CXB containing unsolicited message 
or zero if no message found) 


CXBSW_LENGTH = Message length in bytes (not incl. NI header) 
CXBSC_HEADER = 14-byte NI datalink header 
CXBSC_HEADER+14 = Message 
RO-R1 are destroyed. 
TACH_UNSOL_MSG: 
PUSH ; Save registers 
CLRL IRPSL_EXTEND(R3) ; Preset no CXB address 


Locate the BC block associated with this circuit. 


pee Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
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ROL LHF PMO D OVUPIM MMMM DS NVI FAO MAVIVIUINIO OOOCOCSOCOCOCOOOOCOOOOOOOOOOoOO 


51 00000008'EF  9€ MOVAB BC_QUEUE,R1 ; Get address of BC queue 
55 51 00 MOVL 3; Setup for oop 
55 65~—(é 5$ MOVL  (R5) ,R5 : Skip to next block in queue 
51 55—Cé# CMPL =e RR ; End of list? 
5A 13 BEQL : If not found, skip it 
ge AS Bl CMPW BC_W_LPD(RS),- ; Does the LPD ID match? 
E Ad DUBSO_PATH(RA) 
|hO lO BNEQ $ : If not, keep looking 
; Search for unsolicited message which was ‘‘tagged’’ for 
, this process. 
51 24 a5 9 MOVAB BC_Q_UNSOL_MSGS(R5),R1 ; Get address of unsolicited msg queue 
$e 51 4h MOVL R17R5 : Setup for loop 
5 $2 D 10$:  MOvL (R5),R5 : Skip to next msg in List 
51 55~—CoéT CMPL =e RA : End of list? 
44 13 BEaL §=s«90$ : If so, then skip it 
30 AS ODI CMPL JOWQE_L_PID(R5S),=- ; Does the IPID match? 
OC A3 {RPSL _PTDIRS) 
.. BNEQ 0$ ; If not, keep Looking 


: Allocate a CXB from non-paged pool, store the message into 
: the block, and insert it into the 6WB receive queue. 


MOVZWL Lowae W_MSGLEN(RS),R1 _; Get size of message 
ADDL #CXBSC_OVERHEAD*NIHDRSIZ,R1 ; Compute size of CXB 
JSB NE TSALONPAGED : Allocate from non-paged pool 


PRR PLL REP RELL EEE ES EWA AAAI AA AA AAA A AIAN AAAIAI IAI 


2 tS  AOQOODODOOOOO OOO OOOO OOO 696909 69 69 69 69 09 68 SI SI NI SINS NS NSN SOA AAA OO 


SONA EWR @ OOD NAMNE WIN 9 OD NAME WIN 3 9 OD NA UE WIN 2 9 OD NAME WN OOONAUNE 
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YO4-580 ATTACH. UNSOL_ASG - Attach unsolicited me ety 7 83:46:42 ENETACE. SREINEYDLE MAR; 1 ° fb) 
29 E 745 1421 BLBC RO,90$ : If insufficient memory, skip it 
gs Ag 9 rte 14 ¢ MOVW »CXBSW_SIZE(R2) : Set size of structure” , 
AA ig rat 14 VB #DYNSC_CRB,CXBSB_TYPE(R2) ; Set type of structure 
62 S6A E 0750 1424 MOVAB CXBS$C READERS- ; Set data area address in CXB 
754 1425 NIHDRSIZ(R2), (R2) 
¢6 AS BO 0754 14 § MOVW 1OWQE _W MSGLEN(RS5) ,- ; Save message size in CXB 
CA 757 14 CXBSW LENGTH(R2) 
54 A3 DO 0759 14 8 MOVL R2, IRPSL_EXTEND(R3) 3; Save address of CxB 
C 75D 14 PUSHR #*A<R2,R3,R4,R5> ; Save registers 
75F 1430 OVC  #NIHDRS§I7.- : Copy NI datalink header 
38 A 761 1431 IOWQE_G_NIHDR(RS),- 
48 A2 76 14 § gxpee HEADER (R2) 
55 OCA DO 0765 14 MOVL #4 (SP) ,R ; Recover IOWQE address 
26 A 28 0769 1434 mMovC IOWQE _W_MSGLEN(RS) ,- ; Copy message 
46 ag 76C 1435 IOWQE_G_MSG(R5),- 
6 76E 1438 (R3) 
3C BA A 14 POPR #*M<R2,R3,R4,R5> ; Restore registers 
55 8EDO Bf 1 1438 90$ POPL R5 ; Restore registers 
05 0774 1439 RSB 
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: This routine is called whenever an 
3; We must check if 


AX/VMS Macro V04-00 
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ndle MOM process termin 5-SEP-1984 02:19:17 CNETACP.SRCINETDLE.MAR;1 


-SBTTL DLESPRC_EXIT = Handle MOM process termination 


: Inputs: 


R8 = IPID of terminated process 


; Outputs: 


None 


BLESPRC_EXIT:: 


: Scan all broadcast circuits 
MOVAB BC_QUEUE,R1 


MOVL 

MOVL (R5) RS 
CMPL =e. RS, RA 
BEQL 20$ 


:  Deallocate any messages which 


MOVAB BC_Q_UNSOL_MSGS(RS5) ,R2 


CMPL IOWQE_L_PID(R3) ,R8 
BNEQ 10$ 


PUSHL (R3) 

REMQUE (R3),R0 

JSB NE TSDEALLOCATE 
POPL R3 

BRB 15$ 


; DLESPRC_EXIT = Handle MOM process termination 


Y process ‘‘owned’’ by NETACP terminates. 
we have any unsolicited MOP messages intended for the 
3; terminated process, and if so, clean them up. 


Get address of BC queue 
Setup for <% 

Skip to next block in queue 
End of List? 

If not found, skip it 


are intended for this process 


0 
Skip to next aso in list 
End of List? 


ee ee 
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; Get address of unsolicited msg queue 
; Setup for lo 


so, then continue to next circuit 


I 
Does the IPID match? 
If not, keep Lookin 


Save pointer to nest block in List 


Remove it from the queue 
Deallocate the block 

Set R3 to next block in List 
Keep looking for more 


If any circuits are in MOP state waiting for the MOM 


rocess to issue its initial ACC 


ESS, then reset them 


into normal state. We recognize this condition 


MOVL NETSGL_CNR_CRI.R11 
RL —s R10 

SSEARCH egl,cri,l.owpid 

BLBC Ss 

BSBW Nef LOCATE_LPD 

RO,25$ 

BSBW LeAvE MOP_STATE 

MOVZWL #LEVS$C_LIR_DOWN,RO 

BSBW = SET_DLC_EVT 


that the process must never have accessed the 


: ack 
:; if the OWPID field is still set to the PID, mooning 
: channel (or else we would have cleared it on DEACCESS). 


Point to CRI database 
Start at beginnin 
Search for circuits 
Branch if none found 
Locate associated LPD 
f error detected, skip it 
Return circuit to normal mode 
Setup ‘Line down’’ event 
Queue the event 


; 8 
Voae DLe oie , : or Hand ton process termin _* $e 13be 8}: 19; i} NETNCE. Sh NET ere MAR: 1 —_ ( 5) 


DB é«édM'#A 149 BRB 25% 3; Keep loopin 
Os Bree tee sos, BEB chet ee 
7DB 1800 
7DB 1501 
7DB 1802 LEND 
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Symbol table “ . ae et 83:46: 7 (CNETACP.SRCINETDLE.MAR; 1 ° (19) 
LPDS$V_RUN = 4 NMASC_PCLI_BUS = AF 1 
CPDSV7K25 = p 8% NMASC_PCLI-CRC = BIC 
LPDSW_ CHAN = 14 NMASC_PCLI_DCH = B1B 
LPD$W"PTH - ; NMASC~PCLI-MCA : BOF 
LPDSW"STS = NMASC_PCLI-MLT = B19 
LP_PARAMS BR 05 NMASC_PCLI-PAD = ° BIA 
LP” SE TMODE 9D R 0 NMASC_PCLI-PRM = 18 
MAX_MOM_PROC = OA NMASC_PCLI-PTY = 00 BOF 
“OBJ “NAM 0 9 R 05 NMASC_STATE_OFF = 06 0 
PRCRAM 00000005 R NMASC_STATE ON = 00000 
NETSAB_EVT_WQE eeeeeree =X 4 NSPSC_EXT_LAK = 000 4t3 
NETSALCOCATE eeeeenee =X 4 NSPS$C"MAXADR = 90 
NE TSALONPAGED eeeeenee =X 4 RCV_OCE_MSG 60 R 04 
NETSC_ACT_TIMER = 90000016 RCV-DLE-MSG_AST 000054E R 04 
NETSC_EFN_ASYN = 000 900 SET“DLL_EVT eeeeeeee = X 04 
NETSC_EFN_WAIT = 00000001 1 oe = 00000001 
NETSC_ = 000000 ° $S$$_DEVALLOC eeneeeee = =6X 8604 
NETSC_MAXACCFLD = 990008 SS$_DEVINACT eeeeeeee =X 04 
NETSC_MAXL INNAM y 99000 F SS$_DUPLNAM ateneeee = X 04 
NETSC_MAXLNK = 000003F F SS$_FILNOTACC teeeeeee XK 04 
TSC_MAX = 00000006 SS$_ILLIOFUNC aeeeeeee = §=6X | (04 
TSC_MAX = 44 4 SS$_IVMODE aeneeeee = =6X 04 
NETSC_MAX_AREAS = 0000003F SS$_NORMAL eeeneeeer = X 04 
TSC_MAX_LINES = 00000040 SS$"NOSUCHDEV aeeeeneer XK 04 
NETSC_MAX_NC = i444 43 STARTUP_MOM 00000675 R 04 
NETSC_MAX_NODES = 000003FF SYSSASSIGN aeeeeeee GX 04 
NETSC_MAX~OBJ = £0 0000F F SYSSDASSGN aeeeeeee GX 04 
NETSC_ MAX” WOE = 00000014 SYS$FAO eeeneeee = X 04 
NETSC_MINBUF S1Z = 900000¢0 SYS$Q10 eeeeeeee GX 04 
NETSC_TID_ACT = 0000000 SYS$Q10W aeeeeeee GX 04 
NETSC_TID_RUS = 00000001 TID_C_READSUP = 00000001 
NETSC_TID_XRT = 4 44: TRSC_MAXHOR = Q000001C 
NETSC-TRCTL_CEL 2 9000000 TRSC_NI_ALLEND1 = $0000A8 
NETSC_TRCTL-OVR = 00000005 TRSC_NI_ALLEND2 = 90 0000 
NETSC-UTLBUFSIZ = 00001000 TRSC_NI_ALLROU1 = 030000AB 
NE TSDEALLOCATE eeenenee = X 04 TRSC_NI_ALLROU2 s $909000 
NETSEVT_INTRAW teeeeeee XK 04 TRSC_NI_PREF IX = 0004 gAA 
NETSF IND LPD eeeeeeee =X 4 TRSC_NI_PROT = 9600 60 
NETSGET_CPD CRI aeeeeene x 4 TRSC_PRT_ECL = 900 O1F 
NETSGL_CNR_CRI eeeeeeee =X 4 TRSC~PRI-RTHRU = 0000001F 
NETS$GL-OLE-UCB teeneeee =X 4 ucBSC_pDT = 00000088 
NETSLOTATE-LPD eererere YG WOE SACLOCATE eeeeeeee =X 04 
NE TSM_MAXLAKMSK = 000003FF WQE$B_EVL_DT1 = QOOOO0TE 
NE TSSTARTUP OBJ _NAM weeeeeee =X |G WQESB_EVL _DT2 = 8 9434 
NFBSC_CRI_ = 04020041 WOQESC"LENGTH = 3h 
NFBSC~CRI~OWPID = 04010010 WOES$C“QUAL_DLE = 00000004 
= 0400000 WOESC S T = 00000003 
= 0401 9} WOQESDEALLOCATE eeneeree xX o% 
= 04 4 WQESINSQUE aeeeeeee =X 4 
= 00 WQESL_ACTION = 0000000C 
s OE WOESRESET_TIM eeereree YX 04 
z= 01 WOESW_EVL-CODE = 00 9 01 
= 1 WOESW"REQTD = 9 91 
= 6 = 0000 
= 4 
~ 3 
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RCJNETDLE.MAR;1 (19) 


oreo ae eee ase ree >} 


! Psect synopsis ! 


bee wen e wee neem enn $+ 


PSECT name Allocation PSECT No. Attributes 


> ‘ 600000 ( 8.) 0 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD WNOWRT NOVEC BYTE 
SABSS 8 ( 1570.) 1 ¢ -) NOPIC USR CON ABS LCL NOSHR’- EXE RD WRT NOVEC BYTE 
NET_IMPURE 0000 ( 24.) ¢ ( ¢°3 NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
NET_PURE OO000A ( 165.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
NET_CODE 000007D ( 2011.) 4 ( 4.) NOPIC  USR CON REL LCL NOSHR’ EXE RD NOWRT NOVEC BYTE 
teow enomeme seeeceeeeeon ame} 
! Performance indicators ! 
p$oenmonones (ay em oe om oo om oo ee oe wan maemas + 
Phase Page faults CPU Time Elapsed Time 
Initialization 7 00:00:00.11 00:00:00.57 
Command processing 152 e's SY 00: B03 °28 
Pass 831 Bp Re: 2.24 00:00:43.4 
Symbol table sort 0 00:00:04.69 00:00:05.0 
Pass 2 376 00:00:06.40 00:00:08.4 
Symbol table output 31 00:00:00.21 00:00:00.2 
Psect synopsis output 4 00:00:00.03 00:00:00.0 
Cross-reference output 9 00:00:00.00 es Be 
Assembler run totals 142 00:00:44.80 00:01:02.2 


The working set Limit was 2000 pages. 

178619 bytes (349 pages) of virtual memory were used to buffer the intermediate code. 

There were 180 pages of symbol table space allocated to hold 3209 non-local and 73 local symbols. 
1502 source Lines were read in Pass 1, produc ing 26 object records in Pass 2 

58 pages of virtual memory were used to define 53 macros. 


ee 


; Macro Library statistics ; 


Macro Library name Macros defined 


-$255$0UA28: CSHRLIBINMALIBRY.MLB; 1 1 
_8255$0U. :CSHRLIBIEVCDEF .MLB; 1 
5 o2ebu : SD tae 9 
825 5$DUA28: (NE TACP.OBJ INET .MLB; 1 
55$DUA28: aye O8y LIB.MLB;1 19 

55$DUA28: (SYSLIBJSTARLET.ALB;2 1 
TOTALS (all Libraries) 42 
3530 GETS were required to define 42 macros. 
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There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NETOLE/OBJ=OBJ$:NETDLE MSRC$:NETDLE/UPDATE=(ENH$:NETDLE) *EXECMLS$/LIB+LIB$:NET/LIB+LIB$:NETORV/LIB*+SHRLIBS:EVCDEF /LIB+ 
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